;:sys36864
	;.opt oo
	*= 49152 	; startadresse
; berechnete zeilennummern nach
; goto, gosub und on       rev2
;
; nikolaus heusler    6.91
; XXXXXXXXXXXX XX, XXXX/XX
;
; ------------------------------
; initialisierung      sys 49152
; ------------------------------
;
; rom ins ram kopieren
;
	sei	;interrupt aus
	ldx #4	;vier bytes setzen
; startadresse = endadresse
copy	sty $57,x	;adressen setzen
	dex	;naechstes byte
	bne copy	;weiter, bis x=0
; der inhalt des y-registers ist irrelevant! (vgl. text)
	jsr $a3e8	;aufruf der kopierroutine
	jsr $fddd	;interrupts ruecksetzen
; die kuerzeste rom/ram-kopierroutine, die es gibt!
;
; neuen befehl einsetzen
	lda #<neu	;lowbyte auf neu-routine
	ldy #>neu	;highbyte
	sta $a8a1
	sty $a8a2	;in goto-routine schreiben
	lda #53	;ram-betrieb
	sta 1	;einschalten
	rts	;und fertig!
;
; ------------------------------
; goto-rucksack              neu
; ------------------------------
;
neu	jsr $ad8a	;frmnum, ausdruck holen
	jmp $b7f7	;nach integer wandeln, fertig
;